home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
n_b_v203.zip
/
DAS-NB02.INC
< prev
next >
Wrap
Text File
|
1996-07-04
|
11KB
|
206 lines
'────────────────────────────────────────────────────────────────────────────
$LINK "DAS-NB02.PBL"
'────────────────────────────────────────────────────────────────────────────
TYPE CountryCodeTYPE
CountryCode AS INTEGER
DateFormat AS INTEGER
MoneySymbol AS STRING * 5
ThousandSep AS INTEGER
DecimalSep AS INTEGER
DateSep AS INTEGER
TimeSep AS INTEGER
MoneyFormat AS BYTE
MoneyDecs AS BYTE
TimeFormat AS BYTE
UcaseRout AS DWORD
ListSep AS INTEGER
END TYPE
'────────────────────────────────────────────────────────────────────────────
TYPE DOSdisplayTYPE
Spec AS STRING * 13
Size AS STRING * 10
Date AS STRING * 9
Time AS STRING * 7
Attr AS STRING * 4
END TYPE
'────────────────────────────────────────────────────────────────────────────
'════════════════════════════════════════════════════════════════════════════
DECLARE FUNCTION fChDir% (SEG Path$)
DECLARE FUNCTION fChDrive% (SEG Drive$)
DECLARE FUNCTION fCURDIR$ (SEG Drive$)
DECLARE SUB DATE2YMD (SEG ANY,SEG Year??,SEG Mon?,SEG Day?)
DECLARE FUNCTION fDateFormat? ()
DECLARE FUNCTION fDateSep? ()
DECLARE FUNCTION fDAYS2DATE$ (BYVAL Days??)
DECLARE FUNCTION fDAYS2DATE8$ (BYVAL Days??)
DECLARE FUNCTION fDAYS2DAY? (BYVAL Days??)
DECLARE FUNCTION fDAYS2YMD? (BYVAL Days??,SEG Y??,SEG M?,SEG D?)
DECLARE FUNCTION fDiskFree& (SEG Drive$)
DECLARE FUNCTION fDiskSize& (SEG Drive$)
DECLARE FUNCTION fDOSversion% ()
DECLARE FUNCTION fDRIVEREADY% (SEG Drive$)
DECLARE SUB DTA2HMS (SEG H?,SEG M?,SEG S?)
DECLARE SUB DTA2YMD (SEG Y??,SEG M?,SEG D?)
DECLARE FUNCTION fDTAattr? ()
DECLARE FUNCTION fDTAdate?? ()
DECLARE FUNCTION fDTAfile$ ()
DECLARE FUNCTION fDTAfirstDir% (SEG Spec$)
DECLARE FUNCTION fDTAfirstFILE% (SEG Mask$,BYVAL Attr?)
DECLARE FUNCTION fDTAget$ ()
DECLARE FUNCTION fDTAnextDir% ()
DECLARE FUNCTION fDTAnextFILE% ()
DECLARE FUNCTION fDTAPTR??? ()
DECLARE SUB DTAput (SEG DTA$)
DECLARE FUNCTION fDTAsize& ()
DECLARE FUNCTION fDTAtime?? ()
DECLARE FUNCTION fFILEATTR$ (BYVAL Attr?)
DECLARE FUNCTION fFILEMATCH% (SEG Mask$,SEG File$)
DECLARE FUNCTION fGetAttrib% (SEG File$)
DECLARE FUNCTION fGetCollate$ ()
DECLARE FUNCTION fGetUcase$ ()
DECLARE FUNCTION fHM2HM$ (BYVAL H?,BYVAL M?)
DECLARE FUNCTION fHMS2LONG& (BYVAL H?,BYVAL M?,BYVAL S?)
DECLARE FUNCTION fHMS2TIME$ (BYVAL Hour?,BYVAL Mins?,BYVAL Secs?)
DECLARE FUNCTION fHMS2WORD?? (BYVAL H?,BYVAL M?,BYVAL S?)
DECLARE FUNCTION fISdrive% (SEG Drive$)
DECLARE FUNCTION fKILLFILE% (SEG File$)
DECLARE FUNCTION fLastDrive% ()
DECLARE FUNCTION fLCASE$ (BYVAL Txt$)
DECLARE SUB LCASEstr (SEG ANY)
DECLARE FUNCTION fLEAPYEAR? (BYVAL Year??)
DECLARE SUB LONG2HMS (BYVAL T&,SEG H?,SEG M?,SEG S?)
DECLARE FUNCTION fLONG2TIME$ (BYVAL T&)
DECLARE FUNCTION fLPTready% (BYVAL LPTno?)
DECLARE FUNCTION fMKDIR% (SEG Path$)
DECLARE FUNCTION fMouse? ()
DECLARE FUNCTION fMouseBUTTON% ()
DECLARE FUNCTION MouseBUTTONs (BYVAL HotButtons?)
DECLARE SUB MouseCLEAR ()
DECLARE SUB MouseCoffG (BYVAL LCol%,BYVAL TRow%,BYVAL RCol%,BYVAL BRow%)
DECLARE SUB MouseCoffT (BYVAL TRow?,BYVAL LCol?,BYVAL BRow?,BYVAL RCol?)
DECLARE SUB MouseCoffT2 (BYVAL TRow?,BYVAL LCol?,BYVAL Rows?,BYVAL Cols?)
DECLARE SUB MouseCURSOR (BYVAL Mchar?,BYVAL Mattr?,BYVAL Cchar?,BYVAL Cattr?)
DECLARE SUB MouseGBox (BYVAL Col%,BYVAL Row%,BYVAL Cols%,BYVAL Rows%)
DECLARE SUB MouseGBox2 (BYVAL LCol%,BYVAL TRow%,BYVAL RCol%,BYVAL BRow%)
DECLARE FUNCTION fMouseGetKey% ()
DECLARE SUB MouseLOCATE (BYVAL Row?,BYVAL Col?)
DECLARE SUB MouseOFF ()
DECLARE SUB MouseON ()
DECLARE SUB MouseONnow ()
DECLARE SUB MousePOINTER (SEG Carr%)
DECLARE SUB MousePUT (BYVAL Col%,BYVAL Row%)
DECLARE FUNCTION fMouseSETUP? (BYVAL HotButtons?)
DECLARE FUNCTION fMouseSTATsG% (SEG Col%,SEG Row%)
DECLARE FUNCTION fMouseSTATsT% (SEG Row?,SEG Col?)
DECLARE SUB MouseTBox (BYVAL Row?,BYVAL Col?,BYVAL Rows?,BYVAL Cols?)
DECLARE SUB MouseTBox2 (BYVAL TRow?,BYVAL LCol?,BYVAL BRow?,BYVAL RCol?)
DECLARE SUB MouseVPAGE (BYVAL PageNo?)
DECLARE FUNCTION fPROGNAME$ ()
DECLARE FUNCTION fPROGPATH$ ()
DECLARE FUNCTION fReadB? (BYVAL H%)
DECLARE FUNCTION fReadBlock? (BYVAL H%,SEG ANY,BYVAL Bytes??)
DECLARE FUNCTION fReadD??? (BYVAL H%)
DECLARE FUNCTION fReadI% (BYVAL H%)
DECLARE FUNCTION fReadL& (BYVAL H%)
DECLARE FUNCTION fReadW?? (BYVAL H%)
DECLARE FUNCTION fRMDIR% (SEG Path$)
DECLARE FUNCTION fSeek& (BYVAL H%)
DECLARE FUNCTION fSeekEnd& (BYVAL H%)
DECLARE FUNCTION fSeekRel& (BYVAL H%,BYVAL MoveSize&)
DECLARE FUNCTION fSetAttrib% (SEG File$,BYVAL Attr?)
DECLARE FUNCTION fSetCountry% (BYVAL CntryCode%)
DECLARE SUB SetDateFormat (BYVAL DateForm?,BYVAL DateSep?)
DECLARE SUB SetLowerCase (SEG ANY)
DECLARE SUB SetTimeFormat (BYVAL TimeForm?,BYVAL TimeSep?)
DECLARE SUB SetUpperCase (SEG ANY)
DECLARE FUNCTION fSHAREloaded? ()
DECLARE FUNCTION fSYSDATE$ ()
DECLARE FUNCTION fSYSDAY? ()
DECLARE FUNCTION fSYSHM$ ()
DECLARE FUNCTION fSYSHMS? (SEG Hour?,SEG Mins?,SEG Secs?)
DECLARE FUNCTION fSYSTIME$ ()
DECLARE FUNCTION fSYSYMD? (SEG Year??,SEG Month?,SEG Day?)
DECLARE SUB TIME2HMS (SEG ANY,SEG H?,SEG M?,SEG S?)
DECLARE FUNCTION fTimeFormat? ()
DECLARE FUNCTION fTimeSep? ()
DECLARE FUNCTION fUCASE$ (BYVAL V$)
DECLARE SUB UCASEchar (SEG V?)
DECLARE FUNCTION fUCASEchar? (BYVAL Char?)
DECLARE SUB UCASEdos (SEG ANY)
DECLARE FUNCTION fUCASEdos$ (BYVAL Txt$)
DECLARE SUB UCASEkey (SEG V%)
DECLARE SUB UCASEstr (SEG ANY)
DECLARE FUNCTION fWORD2DATE8$ (BYVAL Datum??)
DECLARE FUNCTION fWORD2HM$ (BYVAL T??)
DECLARE SUB WORD2HMS (BYVAL T??,SEG H?,SEG M?,SEG S?)
DECLARE FUNCTION fWORD2TIME$ (BYVAL T??)
DECLARE SUB WORD2YMD (BYVAL Datum??,SEG Y??,SEG M?,SEG D?)
DECLARE FUNCTION fWriteB? (BYVAL H%,SEG Var?)
DECLARE FUNCTION fWriteBlock? (BYVAL H%,SEG ANY,BYVAL Bytes??)
DECLARE FUNCTION fWriteD? (BYVAL H%,SEG Var???)
DECLARE FUNCTION fWriteI? (BYVAL H%,SEG Var%)
DECLARE FUNCTION fWriteL? (BYVAL H%,SEG Var&)
DECLARE FUNCTION fWriteW? (BYVAL H%,SEG Var??)
DECLARE FUNCTION fYMD2DATE$ (BYVAL Y??,BYVAL M?,BYVAL D?)
DECLARE FUNCTION fYMD2DATE8$ (BYVAL Y??,BYVAL M?,BYVAL D?)
DECLARE FUNCTION fYMD2DAY? (BYVAL Y??,BYVAL M?,BYVAL D?)
DECLARE FUNCTION fYMD2DAYS?? (BYVAL Y??,BYVAL M?,BYVAL D?)
DECLARE FUNCTION fYMD2WORD?? (BYVAL Y??,BYVAL M?,BYVAL D?)
'════════════════════════════════════════════════════════════════════════════
DECLARE FUNCTION fAge% (BYVAL Bdate$)
DECLARE SUB CloseFile (BYVAL FileNo%)
DECLARE FUNCTION fCopyFile% (SEG FromFile$,SEG ToFile$)
DECLARE FUNCTION fCreateFile% (SEG FileName$,SEG Handle%)
DECLARE FUNCTION fDATE2DAYS?? (BYVAL Dyte$)
DECLARE FUNCTION fDATE2DAYSck?? (BYVAL Dyte$)
DECLARE FUNCTION fDate2Word?? (BYVAL Dyte$)
DECLARE FUNCTION fDATE2YMDck?? (BYVAL Dyte$,SEG Y2??,SEG M2?,SEG D2?)
DECLARE FUNCTION fDIR$ (BYVAL Mask$,BYVAL Attr?,BYVAL Fields?)
DECLARE FUNCTION fDIRlist% (F$(),SEG Mask$,BYVAL AT